function [discount,beca,stipend] = u11_2011(math,lang,demrecode,score,region)
%% Universidad de Chile
lm=(math+lang)/2;
discount=zeros(size(lm,1),1);
beca=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);

%Becas FEN
if demrecode==1142
    discount=1*(score>=780)+0.33*((score>=750).*(score<780))+0.33*((score<750).*(score<780).*(score>=735).*(region~=13));
elseif demrecode==1141
    discount=1*(score>=730)+0.33*((score>=705).*(score<730))+0.33*((score<705).*(score<730).*(score>=695).*(region~=13));
end

%BVP
if demrecode==1128 || demrecode==1177
    [discount,stipend]=bvp(lm);
end

end
